home *** CD-ROM | disk | FTP | other *** search
/ Quake Busters / QUAKE.bin / pc / shared.dir / 00835_Script_(Bt) Down on Next < prev    next >
Text File  |  1996-06-10  |  751b  |  32 lines
  1. -- pushed next button
  2.  
  3.  
  4. on mouseDown
  5.   puppetSound "Mouse Down"
  6.   updateStage
  7.   set the castNum of sprite 46 to the ¼
  8. number of cast "next long down"
  9.   updateStage
  10.   repeat while the stilldown
  11.     if not rollover(the clickOn) then ¼
  12. set the castnum of sprite the clickOn to ¼
  13. the number of cast "next long"
  14.     updateStage
  15.     if rollover(the clickOn) then nothing
  16.   end repeat
  17.   puppetsound 0
  18. end mouseDown
  19.  
  20. on mouseUp
  21.   set the castNum of sprite 46 to the ¼
  22. number of cast "next long"
  23.   if rollover(46) then puppetSound "Mouse Up"
  24.   updateStage
  25.   repeat while soundBusy(1)
  26.     nothing
  27.   end repeat
  28.   puppetSound 0
  29.   updateStage
  30.   if rollover(46) then go next
  31.   if not rollover(46) then go to the frame -1
  32. end mouseUp